SuperHack/SuperHack CD.bin/CODING/WINDOWS/EZNET.ZIP/DEMO.ZIP/MDI.FRM

Visual Basic Form | 1996-12-10 | 9.7 KB | 330 lines

VERSION 4.00
Begin VB.MDIForm MDI1
   Appearance      =   0  'Flat
   BackColor       =   &H8000000C&
   Caption         =   "Wellcome to EasyNet OCX!!"
   ClientHeight    =   5040
   ClientLeft      =   1170
   ClientTop       =   1725
   ClientWidth     =   7965
   Height          =   5730
   Left            =   1110
   LinkTopic       =   "MDI1"
   Top             =   1095
   Width           =   8085
   Begin VB.PictureBox Picture1
      Align           =   1  'Align Top
      Appearance      =   0  'Flat
      BackColor       =   &H00E0E0E0&
      BorderStyle     =   0  'None
      FillColor       =   &H00C0C0C0&
      BeginProperty Font
         name            =   "MS Sans Serif"
         charset         =   0
         weight          =   700
         size            =   8.25
         underline       =   0   'False
         italic          =   0   'False
         strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   525
      Left            =   0
      ScaleHeight     =   525
      ScaleWidth      =   7965
      TabIndex        =   0
      Top             =   0
      Width           =   7965
      Begin VB.CommandButton Command5
         Appearance      =   0  'Flat
         BackColor       =   &H80000005&
         Caption         =   "Comments..."
         BeginProperty Font
            name            =   "MS Sans Serif"
            charset         =   0
            weight          =   400
            size            =   9.75
            underline       =   0   'False
            italic          =   0   'False
            strikethrough   =   0   'False
         EndProperty
         Height          =   405
         Left            =   105
         TabIndex        =   1
         Top             =   45
         Width           =   3765
      End
      Begin VB.Line Line1
         X1              =   0
         X2              =   8700
         Y1              =   600
         Y2              =   600
      End
   End
   Begin VB.Menu FileMenu
      Caption         =   "&File"
      Begin VB.Menu PrintformMenu
         Caption         =   "&Print form"
      End
      Begin VB.Menu Exitmenu
         Caption         =   "&Exit"
      End
   End
   Begin VB.Menu EditMenu
      Caption         =   "&Edit"
      Begin VB.Menu CopyMenu
         Caption         =   "&Copy to clipboard"
      End
      Begin VB.Menu DeleteMenu
         Caption         =   "&Delete selected items"
      End
      Begin VB.Menu SEPARATOR1
         Caption         =   "-"
      End
      Begin VB.Menu SelectAllMenu
         Caption         =   "Select &all"
      End
      Begin VB.Menu SEPARATOR3
         Caption         =   "-"
      End
      Begin VB.Menu SelectModeMenu
         Caption         =   "Select &Mode"
      End
   End
   Begin VB.Menu ShowMenu
      Caption         =   "&Show"
      Begin VB.Menu ShowExample
         Caption         =   "&WorkFlow"
         Index           =   0
      End
      Begin VB.Menu ShowExample
         Caption         =   "&NetWork"
         Index           =   1
      End
      Begin VB.Menu ShowExample
         Caption         =   "&Diagram"
         Index           =   2
      End
      Begin VB.Menu ShowExample
         Caption         =   "&FlowChart"
         Index           =   3
      End
   End
   Begin VB.Menu ZoomMenu
      Caption         =   "&Zoom"
      Begin VB.Menu ZoomValueMenu
         Caption         =   "&100% (Normal)"
         Index           =   0
      End
      Begin VB.Menu ZoomValueMenu
         Caption         =   "&200%"
         Index           =   1
      End
      Begin VB.Menu ZoomValueMenu
         Caption         =   "&50%"
         Index           =   2
      End
      Begin VB.Menu ZoomValueMenu
         Caption         =   "0% (Fit in Window)"
         Index           =   3
      End
   End
   Begin VB.Menu CapabilitiesMenu
      Caption         =   "&Capabilities"
      Begin VB.Menu MultiSelectionMenu
         Caption         =   "Multi &Selection"
      End
      Begin VB.Menu ReadOnlyMenu
         Caption         =   "&Read Only"
      End
      Begin VB.Menu CanSizeNodeMenu
         Caption         =   "Can Si&ze node"
      End
      Begin VB.Menu CanMoveNodemenu
         Caption         =   "Can &Move node"
      End
      Begin VB.Menu CanStretchLinkMenu
         Caption         =   "Can S&tretch link"
      End
      Begin VB.Menu CanMultiLinkMenu
         Caption         =   "Can M&ulti link"
      End
      Begin VB.Menu CanDrawNodeMenu
         Caption         =   "Can Draw &Node"
      End
      Begin VB.Menu CanDrawLinkMenu
         Caption         =   "Can Draw &Link"
      End
      Begin VB.Menu AutoScrollMenu
         Caption         =   "&AutoScroll"
      End
   End
   Begin VB.Menu WindowMenu
      Caption         =   "&Window"
      WindowList      =   -1  'True
      Begin VB.Menu CascadeMenu
         Caption         =   "&Cascade"
      End
      Begin VB.Menu TileMenu
         Caption         =   "&Tile"
      End
      Begin VB.Menu ReorganizeMenu
         Caption         =   "&Reorganize"
      End
   End
   Begin VB.Menu InfoMenu
      Caption         =   "&Info"
      Begin VB.Menu AboutMenu
         Caption         =   "&About..."
      End
   End
Attribute VB_Name = "MDI1"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Option Explicit
Const CASCADE = 0
Const MOZAIQUE_HORIZONTALE = 1
Const MOZAIQUE_VERTICALE = 2
Const REORGANISER_ICONES = 3
Private Sub AboutMenu_Click()
  MsgBox "EasyNet demonstration" + Chr(13) + "Copyright
 1994-1996 by Patrick Lassalle"
End Sub
Private Sub AutoScrollMenu_Click()
  If ActiveForm Is Nothing Then Exit Sub
  ActiveForm.Net1.item = 0
  ActiveForm.Net1.AutoScroll = Not ActiveForm.Net1.AutoScroll
  AutoScrollMenu.Checked = ActiveForm.Net1.AutoScroll
End Sub
Private Sub CanDrawLinkMenu_Click()
  If ActiveForm Is Nothing Then Exit Sub
  ActiveForm.Net1.item = 0
  ActiveForm.Net1.CanDrawLink = Not ActiveForm.Net1.CanDrawLink
  CanDrawLinkMenu.Checked = ActiveForm.Net1.CanDrawLink
End Sub
Private Sub CanDrawNodeMenu_Click()
  If ActiveForm Is Nothing Then Exit Sub
  ActiveForm.Net1.CanDrawNode = Not ActiveForm.Net1.CanDrawNode
  CanDrawNodeMenu.Checked = ActiveForm.Net1.CanDrawNode
End Sub
Private Sub CanMoveNodemenu_Click()
  If ActiveForm Is Nothing Then Exit Sub
  ActiveForm.Net1.item = 0
  ActiveForm.Net1.CanMoveNode = Not ActiveForm.Net1.CanMoveNode
  CanMoveNodemenu.Checked = ActiveForm.Net1.CanMoveNode
End Sub
Private Sub CanMultiLinkMenu_Click()
  If ActiveForm Is Nothing Then Exit Sub
  ActiveForm.Net1.CanMultiLink = Not ActiveForm.Net1.CanMultiLink
  CanMultiLinkMenu.Checked = ActiveForm.Net1.CanMultiLink
End Sub
Private Sub CanSizeNodeMenu_Click()
  If ActiveForm Is Nothing Then Exit Sub
  ActiveForm.Net1.item = 0
  ActiveForm.Net1.CanSizeNode = Not ActiveForm.Net1.CanSizeNode
  CanSizeNodeMenu.Checked = ActiveForm.Net1.CanSizeNode
End Sub
Private Sub CanStretchLinkMenu_Click()
  If ActiveForm Is Nothing Then Exit Sub
  ActiveForm.Net1.item = 0
  ActiveForm.Net1.CanStretchLink = Not ActiveForm.Net1.CanStretchLink
  CanStretchLinkMenu.Checked = ActiveForm.Net1.CanStretchLink
End Sub
Private Sub CascadeMenu_Click()
  Arrange CASCADE
End Sub
Private Sub Command5_Click()
  If ActiveForm Is Nothing Then Exit Sub
  frmComments.Show 1
End Sub
Private Sub CopyMenu_Click()
  If ActiveForm Is Nothing Then Exit Sub
  ActiveForm.Net1.CopyAll
End Sub
Private Sub DeleteMenu_Click()
  If ActiveForm Is Nothing Then Exit Sub
  ActiveForm.Net1.DeleteSel
End Sub
Private Sub Exitmenu_Click()
  Unload Me
End Sub
Private Sub MDIForm_Load()
  Me.WindowState = 2
  Form1.Show
  Form2.Show
  Form3.Show
  Form4.Show
  TileMenu_Click
End Sub
Private Sub MDIForm_Resize()
  Line1.X1 = 0
  Line1.X2 = ScaleWidth
End Sub
Private Sub MultiSelectionMenu_Click()
  If ActiveForm Is Nothing Then Exit Sub
  ActiveForm.Net1.MultiSel = Not ActiveForm.Net1.MultiSel
  MultiSelectionMenu.Checked = ActiveForm.Net1.MultiSel
  ActiveForm.Net1.EditAction = 4
End Sub
Private Sub PrintformMenu_Click()
  ActiveForm.PrintForm
End Sub
Private Sub ReadOnlyMenu_Click()
  If ActiveForm Is Nothing Then Exit Sub
  ActiveForm.Net1.ReadOnly = Not ActiveForm.Net1.ReadOnly
  ReadOnlyMenu.Checked = ActiveForm.Net1.ReadOnly
  ActiveForm.Net1.EditAction = 4
End Sub
Private Sub ReorganizeMenu_Click()
  Arrange REORGANISER_ICONES
End Sub
Private Sub SelectAllMenu_Click()
  If ActiveForm Is Nothing Then Exit Sub
  ActiveForm.Net1.SelectAll
End Sub
Private Sub SelectModeMenu_Click()
  If ActiveForm Is Nothing Then Exit Sub
  ActiveForm.Net1.SelectMode = Not ActiveForm.Net1.SelectMode
  If ActiveForm.Net1.SelectMode = True Then
    SelectModeMenu.Checked = True
    ActiveForm.Net1.MousePointer = 2
  Else
    SelectModeMenu.Checked = False
    ActiveForm.Net1.MousePointer = 0
  End If
End Sub
Private Sub ShowExample_Click(Index As Integer)
  Select Case Index
  Case 0
    Form1.Show
  Case 1
    Form2.Show
  Case 2
    Form3.Show
  Case 3
    Form4.Show
  End Select
End Sub
Private Sub TileMenu_Click()
  Arrange MOZAIQUE_HORIZONTALE
End Sub
Private Sub ZoomValueMenu_Click(Index As Integer)
  Dim Zoom%, i%
  If ActiveForm Is Nothing Then Exit Sub
  For i = 0 To 3
    ZoomValueMenu(i).Checked = False
  Next
  Select Case Index
  Case 0
    Zoom = 100
  Case 1
    Zoom = 200
  Case 2
    Zoom = 50
  Case 3
    Zoom = 0
  End Select
  ZoomValueMenu(Index).Checked = True
  ActiveForm.Net1.Zoom = Zoom
End Sub